home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE09 / TIPTRIX / LISTING1.PAS next >
Encoding:
Pascal/Delphi Source File  |  1996-04-18  |  321 b   |  13 lines
  1. type
  2.  TMacroCommand = (tmcIF, tmcGOTO, tmcCALL, tmcEND);
  3. var
  4.  S : string;
  5. begin
  6.  GetNextCommand(S); { retrieve next command into S }
  7.  case TMacroComand(GetEnumValue(TypeInfo(TMacroCommand), 'tmc'+S)) of
  8.    tmcIF : { do If stuff }
  9.    tmcGOTO : { do Goto Stuff }
  10.    tmcCALL : {etc...}
  11.  end { case } ;
  12.  ...
  13. end;